BEGIN  { OFS=FS="," }
NR==1  { if(  (split(Want;Goals,",") < 1 )  exit; 
         for(i=1;i<=NF;i++) Name[$i]=i; next }
/#/    { next }
NF < 2 { next }
       { Out=$Goals[1]
         for(I=2;I<=length(Goals);I)++ 
				Out = Out OFS $Goals[I]
		 print Out
       }
       
